﻿Public Class clsSplitCriteria

    Public Shared Function splitListDetail(ByVal str As String, ByVal jmlList As Integer, ByVal jmlField As Integer) As ArrayList
        Dim splitList As String()
        Dim arrList As New ArrayList()
        Dim i As Integer

        splitList = Split(str, "##[[]]##", jmlList)

        For i = 0 To jmlList - 1
            Dim splitRecord As String()

            splitRecord = Split(splitList(i), "@@##$$@@", jmlField)
            arrList.Add(splitRecord)
        Next

        Return arrList

    End Function


End Class
